function KGetMem(size: PtrUInt): Pointer;
procedure KFreeMem(Ptr: Pointer; Size: PtrUInt);

function GetMem(Size: PtrInt): Pointer;
function GetAlignedMem(Size, Alignment: PtrInt): Pointer;
function ReallocMem(var Ptr: Pointer; Size: PtrInt): Pointer;
procedure FreeMem(Ptr: Pointer);
function GetMemSize(ptr: pointer): ptrint;

function fpc_getmem(size:ptruint):pointer;compilerproc;
procedure fpc_freemem(p:pointer);compilerproc;

procedure DumpMem;